(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     30055,        818]
NotebookOptionsPosition[     29397,        794]
NotebookOutlinePosition[     29739,        809]
CellTagsIndexPosition[     29696,        806]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Physical", " ", "Constants"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"hbar", "=", 
     RowBox[{"1.054", " ", 
      RowBox[{"10", "^", 
       RowBox[{"-", "34"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"jtoev", "=", 
     RowBox[{"6.242", " ", 
      RowBox[{"10", "^", "18"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"me", "=", 
     RowBox[{"9.109", " ", 
      RowBox[{"10", "^", 
       RowBox[{"-", "31"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q", "=", 
     RowBox[{"1.602", " ", 
      RowBox[{"10", "^", 
       RowBox[{"-", "19"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Omega", "[", 
      RowBox[{"my_", ",", "ly_", ",", "B_"}], "]"}], ":=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"hbar", "/", 
          RowBox[{"(", 
           RowBox[{"my", " ", 
            RowBox[{"ly", "^", "2"}]}], ")"}]}], ")"}], "^", "2"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"q", " ", 
          RowBox[{"B", "/", "my"}]}], ")"}], "^", "2"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nm", "=", 
     RowBox[{"10", "^", 
      RowBox[{"-", "9"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Parameters", " ", "from", " ", "fitting"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", "me"}], ",", 
       RowBox[{"2.2", "me"}], ",", 
       RowBox[{"2", "me"}], ",", 
       RowBox[{"2.1", "me"}], ",", 
       RowBox[{"2.2", "me"}], ",", 
       RowBox[{"1.7", "me"}], ",", 
       RowBox[{"1.9", "me"}], ",", 
       RowBox[{"1.8", "me"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"l", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"25", "nm"}], ",", 
       RowBox[{"22", "nm"}], ",", 
       RowBox[{"20", "nm"}], ",", 
       RowBox[{"23", "nm"}], ",", 
       RowBox[{"25", "nm"}], ",", 
       RowBox[{"20", "nm"}], ",", 
       RowBox[{"26", "nm"}], ",", 
       RowBox[{"27", "nm"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.66", ",", "1.01", ",", "0.63", ",", "0.62", ",", "0.56", ",", "0.71",
        ",", "0.6", ",", "0.6"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"B", "=", 
     RowBox[{"{", 
      RowBox[{
      "1.5", ",", "2.8", ",", "0.94", ",", "1.3", ",", "1.5", ",", "1", ",", 
       "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", 
     RowBox[{"{", 
      RowBox[{
      "1.6", ",", "1.46", ",", "1.28", ",", "1.14", ",", "1.22", ",", "1.58", 
       ",", 
       RowBox[{
        RowBox[{"hbar", "/", 
         RowBox[{"(", 
          RowBox[{"6.5", "me", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"8.1", "nm"}], ")"}], "^", "2"}]}], ")"}]}], "/", 
        RowBox[{"Omega", "[", 
         RowBox[{
          RowBox[{"m", "[", 
           RowBox[{"[", "7", "]"}], "]"}], ",", 
          RowBox[{"l", "[", 
           RowBox[{"[", "7", "]"}], "]"}], ",", "0"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"hbar", "/", 
         RowBox[{"(", 
          RowBox[{"6.4", "me", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"7.9", "nm"}], ")"}], "^", "2"}]}], ")"}]}], "/", 
        RowBox[{"Omega", "[", 
         RowBox[{
          RowBox[{"m", "[", 
           RowBox[{"[", "8", "]"}], "]"}], ",", 
          RowBox[{"l", "[", 
           RowBox[{"[", "8", "]"}], "]"}], ",", "0"}], "]"}]}]}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Energies", " ", "of", " ", "the", " ", "n"}], "=", "0"}], ",", 
     RowBox[{"m", "=", 
      RowBox[{
       RowBox[{"0", " ", "spin", " ", "down", " ", 
        RowBox[{"(", "Ener1", ")"}], " ", "and", " ", "n"}], "=", "0"}]}], 
     ",", 
     RowBox[{"m", "=", 
      RowBox[{"1", " ", "spin", " ", "up", " ", 
       RowBox[{"(", "Ener2", ")"}], " ", "bands"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Ener1", "[", 
      RowBox[{
      "my_", ",", "ly_", ",", "g_", ",", "Bp_", ",", "x_", ",", "B_"}], "]"}],
      ":=", 
     RowBox[{
      RowBox[{"jtoev", " ", "hbar", " ", 
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "+", 
      RowBox[{
       RowBox[{"g", "/", "2"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Abs", "[", "B", "]"}], "-", "Bp"}], ")"}], " ", "5.788", 
       " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "5"}]}]}], "+", 
      RowBox[{"1.5", " ", "jtoev", " ", "hbar", " ", 
       RowBox[{"Omega", "[", 
        RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Ener2", "[", 
      RowBox[{
      "my_", ",", "ly_", ",", "g_", ",", "Bp_", ",", "x_", ",", "B_"}], "]"}],
      ":=", 
     RowBox[{
      RowBox[{"jtoev", " ", "hbar", " ", 
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "-", 
      RowBox[{
       RowBox[{"g", "/", "2"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Abs", "[", "B", "]"}], "-", "Bp"}], ")"}], " ", "5.788", 
       " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "5"}]}]}], "+", 
      RowBox[{"3.5", " ", "jtoev", " ", "hbar", " ", 
       RowBox[{"Omega", "[", 
        RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Solve", " ", "for", " ", "where", " ", "these", " ", "bands", " ", 
     "cross", " ", "as", " ", "a", " ", "function", " ", "of", " ", 
     "magnetic", " ", "field", " ", "to", " ", "find", " ", "the", " ", 
     "critical", " ", "field"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"eqns", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Ener1", "[", 
           RowBox[{
            RowBox[{"m", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"l", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"g", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"B", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"x", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", "y1"}], "]"}], "\[Equal]", 
          RowBox[{"Ener2", "[", 
           RowBox[{
            RowBox[{"m", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"l", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"g", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"B", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"x", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", "y1"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], ")"}], "//", 
     "TableForm"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"fields", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"eqns", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", "y1"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], ")"}], "//", 
     "TableForm"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ratios", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Omega", "[", 
              RowBox[{
               RowBox[{"m", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"l", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "/", 
              RowBox[{"Omega", "[", 
               RowBox[{
                RowBox[{"m", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"l", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", "y1"}], "]"}]}]}], "/.", 
            RowBox[{"fields", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]}], ")"}], "//", 
     "TableForm"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"m", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "/", "me"}], ",", 
          RowBox[{"Omega", "[", 
           RowBox[{
            RowBox[{"m", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"l", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], ",", 
          RowBox[{
           RowBox[{"Omega", "[", 
            RowBox[{
             RowBox[{"m", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"l", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], 
           RowBox[{"x", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Omega", "[", 
            RowBox[{
             RowBox[{"m", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"l", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "y1"}], "]"}], "/.", 
           RowBox[{"fields", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}], ")"}], "//", 
     "TableForm"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Plot", " ", "the", " ", "ratio", " ", "of", " ", "the", " ", "vertical", 
     " ", "confinement", " ", "frequency", " ", "and", " ", "\[CapitalOmega]", 
     RowBox[{"(", 
      SubscriptBox["B", "c"], ")"}], " ", "and", " ", "a", " ", "line", " ", 
     "at", " ", "the", " ", "ideal", " ", "point", " ", "for", " ", "the", 
     " ", "samples", " ", "in", " ", "the", " ", "order", " ", "listed", " ", 
     "on", " ", "the", " ", "table", " ", 
     RowBox[{"(", 
      RowBox[{
      "points", " ", "7", " ", "and", " ", "8", " ", "from", " ", "the", " ", 
       "qaveguide", " ", "manuscript"}], ")"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"0.25", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.5", ",", "8.5"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.5", ",", "8.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", "0.4"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"FrameStyle", "\[Rule]", " ", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Sample\>\"", ",", 
          "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Omega]\), \(z\)], \(\
\[CapitalOmega] \((B)\)\)]\)\>\""}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.5", ",", "0"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"ratios", "[", 
       RowBox[{"[", 
        RowBox[{";;", ",", "2"}], "]"}], "]"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Plot", " ", "the", " ", "vertical", " ", "confinement", " ", 
     "frequencies", " ", "for", " ", "the", " ", "samples", " ", "in", " ", 
     "the", " ", "order", " ", "listed", " ", "on", " ", "the", " ", "table", 
     " ", 
     RowBox[{"(", 
      RowBox[{
      "points", " ", "7", " ", "and", " ", "8", " ", "from", " ", "the", " ", 
       "qaveguide", " ", "manuscript"}], ")"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{
          RowBox[{"m", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"l", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], 
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "/", 
         RowBox[{"10", "^", "9"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Sample\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(z\)]\) (\!\(\*SuperscriptBox[\
\"10\", Cell[\"9\"]]\)\!\(\*SuperscriptBox[\(s\), \(-1\)]\))\>\""}], "}"}]}], 
     ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "8.5"}], "}"}], ",", "All"}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Plot", " ", "the", " ", "horizontal", " ", "confinement", " ", 
     "frequencies", " ", "for", " ", "the", " ", "samples", " ", "in", " ", 
     "the", " ", "order", " ", "listed", " ", "on", " ", "the", " ", "table", 
     " ", 
     RowBox[{"(", 
      RowBox[{
      "points", " ", "7", " ", "and", " ", "8", " ", "from", " ", "the", " ", 
       "qaveguide", " ", "manuscript"}], ")"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{
          RowBox[{"m", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"l", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], "/", 
        RowBox[{"10", "^", "9"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Sample\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(y\)]\) (\!\(\*SuperscriptBox[\
\"10\", Cell[\"9\"]]\)\!\(\*SuperscriptBox[\(s\), \(-1\)]\))\>\""}], "}"}]}], 
     ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "8.5"}], "}"}], ",", "All"}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "the", " ", "effective", " ", 
     SubscriptBox["m", "y"], "  ", "for", " ", "the", " ", "samples", " ", 
     "in", " ", "the", " ", "order", " ", "listed", " ", "on", " ", "the", 
     " ", "table", " ", 
     RowBox[{"(", 
      RowBox[{
      "points", " ", "7", " ", "and", " ", "8", " ", "from", " ", "the", " ", 
       "qaveguide", " ", "manuscript"}], ")"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "/", "me"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Sample\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(m\), \(y\)]\) (\!\(\*SubscriptBox[\(m\), \
\(e\)]\))\>\""}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "8.5"}], "}"}], ",", "All"}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "/", "nm"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Sample\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(l\), \(y\)]\) (nm)\>\""}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "8.5"}], "}"}], ",", "All"}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.708949351682911*^9, 3.7089498353648877`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \
\[NoBreak]\\!\\(Solve\\)\[NoBreak], so some solutions may not be found; use \
Reduce for complete solution information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.7089493526055603`*^9, 3.7089493677331944`*^9}, 
   3.7089494023105693`*^9, 3.7089498364300966`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \
\[NoBreak]\\!\\(Solve\\)\[NoBreak], so some solutions may not be found; use \
Reduce for complete solution information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.7089493526055603`*^9, 3.7089493677331944`*^9}, 
   3.7089494023105693`*^9, 3.708949836453662*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \
\[NoBreak]\\!\\(Solve\\)\[NoBreak], so some solutions may not be found; use \
Reduce for complete solution information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.7089493526055603`*^9, 3.7089493677331944`*^9}, 
   3.7089494023105693`*^9, 3.708949836479729*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Solve :: \
ifun\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.7089493526055603`*^9, 3.7089493677331944`*^9}, 
   3.7089494023105693`*^9, 3.7089498365208387`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7cG8PJyB4YE9AxhcsDcoEPQ3bH4E50verXZLYnsK
57OcWhLwo+IVnB+dMXOxcv97OH+NY97bh66f4PztN3aK+fz6AudXemQ/aWj4
DuefOHhs/3mbX3B+ZqUnb+SbP3D+QU6j/2ty/8P5lwOT6nuFGB1gfIXuuIua
4Uxw/vTkvJjkqcxw/hWH4Hcr37HA+Tlc2ZeuGrDB+advhO/l62OH84PdIh4+
ecIB55st6A5foMIF5z/4N/lKRj03nP/U8/xiscM8cP6GmfcrLyrywflLO5g7
Nav44fxfhrqlm2MF4Hw2JeeVN7gF4Xz7jqK2gnUIPu8+bYbrvkJwvl2Z/9/D
vxD8uUt6FivPEYbz40NNznJ6i8D5266mTt73DcG3OrOB6dk0UThf0TXt62QX
MYR/TUwnbnmG4D/41Htycas4nP/WOLBV0kgCzld/rfuK8TKCf1Sl9FJBoySc
P+HK1eQgFSk4/0PwgYlMRxD8zaGizpaF0nD+krPNcx8JycD5P47HVAsdQvAf
Ttz/VSBPFs7/ftFasolPDs4vnKJ0oHIPgi9xVkngSZw8nB98dc0fmX8I/s/1
AWZ5oQqI8Ntw3Yl9GYIvtmDdPObLCP6Z/tZf//8j+AAZt/BO
      "]]}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{1., 0.2519532283812348}, {2., 0.3046532109025524}, {3., 
       0.2700546311163027}, {4., 0.24491827172713443`}, {5., 
       0.2227821760223255}, {6., 0.26659343561276894`}, {7., 
       0.25889363453476055`}, {8., 0.2468705337112676}}]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, 0.},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"\\!\\(\\*FractionBox[SubscriptBox[\\(\[Omega]\\), \\(z\\)], \\(\
\[CapitalOmega] \\((B)\\)\\)]\\)\"", TraditionalForm], None}, {
     FormBox["\"Sample\"", TraditionalForm], None}},
  FrameStyle->Directive[
    GrayLevel[0], 18],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  LabelStyle->Directive[
    GrayLevel[0], 18],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0.5, 8.5}, {0.1, 0.4}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.708949402426261*^9, 3.708949836578994*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 148.10846415632892`}, {2., 158.65535023320123`}, {3., 
      185.13558019541117`}, {4., 118.74075154310056`}, {5., 
      102.66609447200072`}, {6., 268.8549785926008}, {7., 
      271.3229400352478}, {8., 289.6914998150634}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.54, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\) \
(\\!\\(\\*SuperscriptBox[\\\"10\\\", \
Cell[\\\"9\\\"]]\\)\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\))\"", 
      TraditionalForm], None}, {
     FormBox["\"Sample\"", TraditionalForm], None}},
  FrameStyle->Directive[
    GrayLevel[0], 18],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  LabelStyle->Directive[
    GrayLevel[0], 18],
  Method->{},
  PlotRange->{{0.5, 8.5}, {0, 289.6914998150634}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.708949402426261*^9, 3.7089498366446676`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 92.56779009770557}, {2., 108.66804810493235`}, {3., 
      144.63717202766495`}, {4., 104.15855398517594`}, {5., 
      84.1525364524596}, {6., 170.16137885607642`}, {7., 90.08855311595448}, {
      8., 88.17995551145555}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.54, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\) \
(\\!\\(\\*SuperscriptBox[\\\"10\\\", \
Cell[\\\"9\\\"]]\\)\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\))\"", 
      TraditionalForm], None}, {
     FormBox["\"Sample\"", TraditionalForm], None}},
  FrameStyle->Directive[
    GrayLevel[0], 18],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  LabelStyle->Directive[
    GrayLevel[0], 18],
  Method->{},
  PlotRange->{{0.5, 8.5}, {0, 170.16137885607642`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.708949402426261*^9, 3.7089498367118487`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 2.}, {2., 2.2}, {3., 2.}, {4., 2.1}, {5., 2.2}, {6., 
      1.7}, {7., 1.9}, {8., 1.8000000000000003`}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.54, 1.675},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(m\\), \\(y\\)]\\) \
(\\!\\(\\*SubscriptBox[\\(m\\), \\(e\\)]\\))\"", TraditionalForm], None}, {
     FormBox["\"Sample\"", TraditionalForm], None}},
  FrameStyle->Directive[
    GrayLevel[0], 18],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  LabelStyle->Directive[
    GrayLevel[0], 18],
  Method->{},
  PlotRange->{{0.5, 8.5}, {1.7, 2.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.708949402426261*^9, 3.7089498367529736`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 25.}, {2., 22.}, {3., 20.}, {4., 23.}, {5., 25.}, {6., 
      20.}, {7., 26.}, {8., 27.}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.54, 19.65},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(l\\), \\(y\\)]\\) (nm)\"", TraditionalForm], 
     None}, {
     FormBox["\"Sample\"", TraditionalForm], None}},
  FrameStyle->Directive[
    GrayLevel[0], 18],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  LabelStyle->Directive[
    GrayLevel[0], 18],
  Method->{},
  PlotRange->{{0.5, 8.5}, {20., 27.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.708949402426261*^9, 3.70894983679607*^9}]
}, Open  ]]
},
WindowSize->{1842, 1021},
WindowMargins->{{17, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.2 for Microsoft Windows (64-bit) (July 6, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 18823, 514, 886, "Input"],
Cell[19406, 538, 611, 12, 21, "Message"],
Cell[20020, 552, 609, 12, 21, "Message"],
Cell[20632, 566, 609, 12, 21, "Message"],
Cell[21244, 580, 608, 12, 21, "Message"],
Cell[21855, 594, 2244, 49, 373, "Output"],
Cell[24102, 645, 1433, 37, 386, "Output"],
Cell[25538, 684, 1432, 37, 379, "Output"],
Cell[26973, 723, 1229, 33, 386, "Output"],
Cell[28205, 758, 1176, 33, 422, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

